﻿Public Class frmLoad
    Private m_Project As Boolean = True '是否新建项目(默认为新建项目)
    ''' <summary>
    ''' 是否新建项目(默认为新建项目)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Project() As Boolean
        Get
            Return Me.m_Project
        End Get
        Set(ByVal value As Boolean)
            Me.m_Project = value
        End Set
    End Property

    Private Sub ButOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButOk.Click
        If Me.RadioNew.Checked = True Then
            Me.Project = True
        ElseIf Me.RadioOpen.Checked = True Then
            Me.Project = False
        End If
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub ButCancal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButCancal.Click
        Me.Close()
    End Sub
End Class